﻿Public Class cBanco
    Dim drBanco As dsBancos.GLO_BANCOSRow
    Public Sub New(ByVal IdBanco As String)
        Try
            Dim daBanco As New dsBancosTableAdapters.GLO_BANCOSTableAdapter
            Dim dtBanco As dsBancos.GLO_BANCOSDataTable = daBanco.GetDataByIdBanco(IdBanco)
            If dtBanco.Rows.Count > 0 Then
                drBanco = dtBanco.Rows(0)
            Else
                Throw New Exception("Banco con este Id no existe")
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public ReadOnly Property IdBanco() As String
        Get
            Return drBanco.IDBANCO
        End Get
    End Property
    Public ReadOnly Property Descripcion() As String
        Get
            Return drBanco.DESCRIPCION
        End Get
    End Property
End Class
